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EPROM CARTRIDGE DOWNLOAD ROUTINE 


This routine will take a basic program stored in the 16K memory block from COQ@-FFFFh and 
gove it down into the normal Basic ram area. (4@@9h and on) More than one program may be stored 
on a board in this block. POKE 16417 the number of the program desired to be downloaded, 

The first programs’ number is zero, the seconds’ is one, etc. so that the routine will 
default on power up to download the first program in the block. (Because 16417=22 on power uo) 
The programs should be stored on eprom with no separating bytes. If the desired program, other 
than program zero, does not exist on the cartridge, the computer will return with report “E", 
program requested is not on the cartridge board. If there are no programs available, because the 
cartridge is not inserted into the expansion board, the cartridge board enable switch is off, 
or the memory board’s 48/64K switch is on, the computer will crash. 
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CSa7 az 


ED42 


STRT 


AGIN 


EDPA 


DEST 


NEXT 


CALL TFAS 
LD HL, caaa 
LD DE, 2aae 
ADD HL, DE 
LD E, (HL) 
INC HL 

LD D, (HL) 
LD A, (421) 
AND A 

EX DE, HL 
JR NZ NEXT 
LD BC, VERSN 
PUSH BC 
SBC HL, BC 
LD BH 

Some eee 

EX DE, HL 
LD DE, aaac 
SBC HL, DE 
POP DE 
LDIR 

POP HL 

LD HL, @676 
PUSH HL 

JP Slo? 

LD BC, 4215 
SBC HL, BC 
ADD HL, DE 
DEC (1Y+21) 
LD A, (HL) 
CP FF 

JR NZ AGIN 
RST SH 
REPORT E 


sEnter “TEMP FAST" made 

Point "HL? at cartridge slat 
3;Set *DE* for displemnt ta ELINE 
sPoint "HL? at ELINE 

* DE? =ELINE 

address 


23 28 20 


sGet pregram na. ta dawnlead 
s7 AP =2a? 

;7HL =add ELINE/? DE? =ABS ELINE 
gJuno if wrong program 

Set *BC* far calculatian 
;Save 4229h on the stack 

s7HL =byte caunt 
5 RO? =byte 

§ count 
s7HL?=ABS address 
"DE? far 


=z 


ELINE+1! 
ealculatian 
s°HL=start of the program 

57 DE’ =dest (49h) 

sMoave the pregramn 

Discard previous return address 
sS5et HL for new RETurn address 
Put new return address on stack 
;Return to w676h via SLO? 

3Set BC fer calculation 

sHL=neo., of bytes ta skip 
sHL=start af next program 
sDecrement oregram counter 

$Get first byte of next pragram 
sis another program there? 

sJump if there is 
5 Return w/repart 


pu 
‘ 
5; Program nea, 


net available 


BASIC PROGRAM PROGRAMMER ROUTINE 


This routine will program a 2764 eprom with the current program in memory. The amount of 
data “SAVED to eprom will be the same amount as if the normal SAVE command was used, so if 
you don’¢ need the variables in a program, CLEAR before calling to save eprom space. The USR 
roufine may be called from within a program, if desired, to make the program self running. 

POKE 16587 and 16508 either: The location in the eprom you wish the routine to start 
programming at. (For more than one program on an eprom--default starting address is 2020h) 
or The location in ram you wish the routine to start from. (In case the program is greater 
than 8K in length and this is the second eprom to be programmed.) If the last eprom was entirely 
loaded with the beginning of the current program in memory, then POKE 16507,9 and POKE 16508, 96- 
~-making the first address to be programmed from this time 60@9h. Default source address used 
by this routine is 409h. (VERSN) POKE 16507 with the lo byte of the 16 bit address and 16508 
with the hi byte. (The same method used when changing ramtop, lo byte first + hi byte last) 
Be sure both 16507 + 16508 are zero if you are using the default addresses!!! 


21AF CDE72Z2 STRT CALL WeEe7 sEnter “TEMP FAST" made 
e21Re BSA7B4A LD HL, (4@7B) ;Get user pass bytes 

2iBS AF XOR A qLet A= 

21R6 S27R4a LD (4@7B),A 3 Clear user 

Sib BSe7c4a LD (427C0),A 4: pass bytes 

eB1BC 7C LD AH ;7A’ shi pass byte 

SIBD FES DFT? CP 2a s;Passed address )1FFF? 
RIBF 3aas JR NC SRC? sJump for further tests if true 
eici 212942 LD HL,VERSN s*’HL?=default sre 

21C4 188A JR DEST sCantinue at 21Dea 

21C6 FE4A BRO? CP 4 sAddress passed >) SFFF? 
21C8 Sa2e JR NC DEST jJumnp if true. Addr. is far sre 
#1iCA EB EX DE, HL 37 DE’ =passed dest 

SICK F1ag4aA LD HL,VERSN 3?HL?=default sre 

BiCE 18U3 JR CONT sContinue at-21D2 

RiDA Liaasa DEST LD DE, eaaa ;’DE'*=default dest 

2iDS ER CONT EX DE, HL 37 DE* =sre 7HL? =dest 
21D4 ES PUSH HL ;Save dest 

BiDS 2AL44a LD HL, (ELINE) ;Get last byte ta move-i 
21D8 A7 AND A y;Clear carry 

21D? EDSse SBC HL,DE S"7HL =byte caunt 

PIDR 44 LD B,H ; ‘RC’ =byte 

B1ipbc 4D LD C.k Rg 6caunt 

21DD ER EX DE, HL y7 HL? =sre 

Ride Di POP DE sRestore dest 

RIDF EDA MBYT LDI sPragram a byte 

RIEL Eeu7ae IP PO SLO? sReturn via “SLO?" if dane 
B1E4 ES PUSH HL ;Save sre 

BLES 2imaca LD HL, Cae sSet *HL* for test 

21E8 19 ADD HL, DE ;Dest) FFF? 

SLES sae JR NC NOER sContinue at B1ED if net 
21iER CF RST 8H : Return with report "G" 
SLiEC AF REPORT G 5 Dest) SFFF 

S21iED DS NOER PUSH DE ;Save dest 

Siege Cs PUSH BC | byte caunt 

RIEF Sia4aa LD HL, 2224 sSet "HL? for the pause 
BiFe Cboep22 CALL aeep hertee 4 

BIFS FDSGSSFF LD (IY+35),FFsSet FRAMS—hi 

21F9 CD4R2F CALL @F4B ;Set DENC 

eB1iFC Ci POP RC sRe eng ore byte caunt 

RiFD Di POP DE sRestore dest 

BIFE £1 POP HL nad src 

SIFF 18DE JR MEYT sLocp toa send another byte 


o, 
* 


